﻿' ----------------------------------------------------------------------------------
' Microsoft Developer & Platform Evangelism
' 
' Copyright (c) Microsoft Corporation. All rights reserved.
' 
' THIS CODE AND INFORMATION ARE PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, 
' EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES 
' OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
' ----------------------------------------------------------------------------------
' The example companies, organizations, products, domain names,
' e-mail addresses, logos, people, places, and events depicted
' herein are fictitious.  No association with any real company,
' organization, product, domain name, email address, logo, person,
' places, or events is intended or should be inferred.
' ----------------------------------------------------------------------------------

Imports System.Text
Imports System.Runtime.Serialization

<DataContract(Name:="QueueMessage", Namespace:="")>
Public Class CloudQueueMessage
    <DataMember(Name:="MessageText")>
    Public Property AsBytes() As Byte()

    Public ReadOnly Property AsString() As String
        Get
            Return Encoding.UTF8.GetString(Me.AsBytes, 0, Me.AsBytes.Length)
        End Get
    End Property

    <DataMember(IsRequired:=False)>
    Public Property DequeueCount() As Integer

    <DataMember(Name:="MessageId")>
    Public Property Id() As String

    <DataMember(IsRequired:=False)>
    Public Property PopReceipt() As String
End Class
